home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / EGYPTW.DIR / 01716_Script_Workshops < prev    next >
Text File  |  1995-09-13  |  13KB  |  450 lines
  1. global gBeenClicked, gQuest
  2.  
  3. on EWorkshopsRollovers1
  4.   set gBeenClicked = 0
  5.   if (not(CheckClickedStatus(gQuest))) then
  6.     if rollover(6) then
  7.       repeat while rollover(6)
  8.         EgyptCursor
  9.         puppetsprite 14, true
  10.         set the locH of sprite 14 to 243
  11.         set the locV of sprite 14 to 303
  12.         updatestage
  13.         if the mousedown then
  14.           set GBeenClicked = 1
  15.         else
  16.           if gBeenClicked = 1 then
  17.             AnimateLoopFast 6, 899, 3, "SE281801.AIF Basketweave", 4
  18.           end if
  19.         end if
  20.       end repeat
  21.       set the locH of sprite 14 to 943
  22.       puppetsprite 14, false
  23.       updatestage
  24.     else
  25.       if rollover(7) then
  26.         repeat while rollover(7)
  27.           EgyptCursor
  28.           puppetsprite 19, true
  29.           set the locH of sprite 19 to 330
  30.           set the locV of sprite 19 to 236
  31.           updatestage
  32.           if the mousedown then
  33.             set GBeenClicked = 1
  34.           else
  35.             if gBeenClicked = 1 then
  36.               AnimateLoopFast 7, 902, 3, "SE281901.AIF Potwheel", 3
  37.             end if
  38.           end if
  39.         end repeat
  40.         set the locH of sprite 19 to 930
  41.         puppetsprite 19, false
  42.         updatestage
  43.       else
  44.         if rollover(39)then
  45.           repeat while rollover(39)
  46.             EgyptCursor
  47.             puppetsprite 28, true
  48.             set the locH of sprite 28 to 554
  49.             set the locV of sprite 28 to 199
  50.             updatestage
  51.             if the mousedown then
  52.               set GBeenClicked = 1
  53.             else
  54.               if gBeenClicked = 1 then
  55.                 MetalWork
  56.               end if
  57.             end if
  58.           end repeat
  59.           set the locH of sprite 28 to 954
  60.           puppetsprite 28, false
  61.           updatestage
  62.         else
  63.           if rollover(10) then
  64.             repeat while rollover(10)
  65.               EgyptCursor
  66.               puppetsprite 20, true
  67.               set the locH of sprite 20 to 165
  68.               set the locV of sprite 20 to 306
  69.               updatestage
  70.               if the mousedown then
  71.                 set GBeenClicked = 1
  72.               else
  73.                 if gBeenClicked = 1 then
  74.                   AnimateToSlowPauseFrom 10, 915, 1, 0, 2
  75.                 end if
  76.               end if
  77.             end repeat
  78.             set the locH of sprite 20 to 900
  79.             updatestage
  80.             puppetsprite 20, false
  81.           else
  82.             if rollover(11) or rollover(12) then
  83.               repeat while rollover(11) or rollover(12)
  84.                 EgyptCursor
  85.                 puppetsprite 21, true
  86.                 set the locH of sprite 21 to 423
  87.                 set the locV of sprite 21 to 311
  88.                 updatestage
  89.                 if the mousedown then
  90.                   set GBeenClicked = 1
  91.                 else
  92.                   if gBeenClicked = 1 then
  93.                     PolishMetal
  94.                   end if
  95.                 end if
  96.               end repeat
  97.               set the locH of sprite 21 to 923
  98.               puppetsprite 21, false
  99.               updatestage
  100.             else
  101.               if rollover(13) then
  102.                 repeat while rollover(13)
  103.                   EgyptCursor
  104.                   set the locH of sprite 22 to 301
  105.                   set the locV of sprite 22 to 311
  106.                   updatestage
  107.                   if the mousedown then
  108.                     set GBeenClicked = 1
  109.                   else
  110.                     if gBeenClicked = 1 then
  111.                       GlassBlower
  112.                     end if
  113.                   end if
  114.                 end repeat
  115.                 set the locH of sprite 22 to 901
  116.                 updatestage
  117.               else
  118.                 if rollover(15) then
  119.                   ArrowCursor
  120.                   repeat while rollover(15)
  121.                     set the locH of sprite 16 to 104
  122.                     set the locV of sprite 16 to 288
  123.                     updatestage
  124.                   end repeat
  125.                   set the locH of sprite 16 to 904
  126.                   updatestage
  127.                 else
  128.                   if rollover(17) then
  129.                     ArrowCursor
  130.                     repeat while rollover(17)
  131.                       set the locH of sprite 18 to 183
  132.                       set the locV of sprite 18 to 376
  133.                       updatestage
  134.                     end repeat
  135.                     set the locH of sprite 18 to 983
  136.                     updatestage
  137.                   else
  138.                     if rollover(40) then
  139.                       HandCursor
  140.                     else
  141.                       if rollover(41) then
  142.                         HandCursor
  143.                       else
  144.                         if rollover(42) then
  145.                           HandCursor
  146.                         else
  147.                           ArrowCursor
  148.                         end if
  149.                       end if
  150.                     end if
  151.                   end if
  152.                 end if
  153.               end if
  154.             end if
  155.           end if
  156.         end if
  157.       end if
  158.     end if
  159.   end if
  160.   RandomQuestion(gQuest)
  161. end
  162.  
  163. on EWorkshopsRollovers2
  164.   set gBeenClicked = 0
  165.   if (not(CheckClickedStatus(gQuest))) then
  166.     if rollover(6) then
  167.       repeat while rollover(6)
  168.         EgyptCursor
  169.         puppetsprite 28, true
  170.         set the locH of sprite 28 to 553
  171.         set the locV of sprite 28 to 240
  172.         updatestage
  173.         if the mousedown then
  174.           set GBeenClicked = 1
  175.         else
  176.           if gBeenClicked = 1 then
  177.             set the locH of sprite 28 to 953
  178.             UPDATESTAGE
  179.             AnimateWorkshop
  180.             exit repeat
  181.           end if
  182.         end if
  183.       end repeat
  184.       set the locH of sprite 28 to 953
  185.       updatestage
  186.       puppetsprite 28, false
  187.     else
  188.       if rollover(8) then
  189.         ArrowCursor
  190.         repeat while rollover(8)
  191.           set the locH of sprite 9 to 349
  192.           set the locV of sprite 9 to 242
  193.           updatestage
  194.         end repeat
  195.         set the locH of sprite 9 to 949
  196.         updatestage
  197.       else
  198.         if rollover(10) then
  199.           ArrowCursor
  200.           repeat while rollover(10)
  201.             set the locH of sprite 11 to 275
  202.             set the locV of sprite 11 to 324
  203.             updatestage
  204.           end repeat
  205.           set the locH of sprite 11 to 975
  206.           updatestage
  207.         else
  208.           if rollover(12) then
  209.             ArrowCursor
  210.             repeat while rollover(12)
  211.               set the locH of sprite 13 to 541
  212.               set the locV of sprite 13 to 391
  213.               updatestage
  214.             end repeat
  215.             set the locH of sprite 13 to 941
  216.             updatestage
  217.           else
  218.             if rollover(39) then
  219.               HandCursor
  220.             else
  221.               if rollover(41) then
  222.                 HandCursor
  223.               else
  224.                 if rollover(42) then
  225.                   HandCursor
  226.                 else
  227.                   ArrowCursor
  228.                 end if
  229.               end if
  230.             end if
  231.           end if
  232.         end if
  233.       end if
  234.     end if
  235.   end if
  236.   RandomQuestion(gQuest)
  237. end
  238.  
  239. on MetalWork
  240.   ArrowCursor 
  241.   set gAnimationcast = 905
  242.   set gAnimationcast2 = 910
  243.   set count = 0
  244.   repeat while count < 2 and (the mouseUP)
  245.     set the castnum of sprite 9 = gAnimationcast2
  246.     puppetsound "SE282002.AIF MetalHit"
  247.     updatestage
  248.     wait .1
  249.     set the castnum of sprite 9 = gAnimationcast2 + 1
  250.     updatestage
  251.     wait .1
  252.     set the castnum of sprite 9 = gAnimationcast2 + 2
  253.     updatestage
  254.     wait .1
  255.     set the castnum of sprite 8 = gAnimationcast + 1
  256.     set the castnum of sprite 9 = gAnimationcast2 + 3
  257.     updatestage
  258.     puppetsound 0
  259.     wait .1
  260.     set the castnum of sprite 8 = gAnimationcast + 2
  261.     set the castnum of sprite 9 = gAnimationcast2 + 4
  262.     updatestage
  263.     wait .1
  264.     set the castnum of sprite 8 = gAnimationcast + 3
  265.     set the castnum of sprite 9 = gAnimationcast2 + 3
  266.     updatestage
  267.     wait .1
  268.     set the castnum of sprite 8 = gAnimationcast + 4
  269.     set the castnum of sprite 9 = gAnimationcast2 + 2
  270.     updatestage
  271.     wait .1
  272.     set the castnum of sprite 8 = gAnimationcast + 3
  273.     set the castnum of sprite 9 = gAnimationcast2 + 1
  274.     updatestage
  275.     wait .1
  276.     puppetsound "SE282002.AIF MetalHit"
  277.     set the castnum of sprite 8 = gAnimationcast + 2
  278.     set the castnum of sprite 9 = gAnimationcast2
  279.     updatestage
  280.     wait .1
  281.     set the castnum of sprite 8 = gAnimationcast + 1
  282.     updatestage
  283.     wait .1
  284.     set the castnum of sprite 8 = gAnimationcast
  285.     updatestage
  286.     wait .1
  287.     puppetsound 0
  288.     set count = count + 1
  289.   end repeat
  290.   set the castnum of sprite 8 = gAnimationcast
  291.   set the castnum of sprite 9 = gAnimationcast2
  292.   puppetsound 0
  293.   updatestage
  294.   set gBeenClicked = 0
  295. end
  296.  
  297. on PolishMetal
  298.   ArrowCursor 
  299.   set gAnimationcast = 917
  300.   set gAnimationcast2 = 922
  301.   set count = 0
  302.   repeat while count < 2 and (the mouseUP)
  303.     set the castnum of sprite 12 = gAnimationcast2 + 1
  304.     updatestage
  305.     wait .2
  306.     set the castnum of sprite 11 = gAnimationcast + 1
  307.     updatestage
  308.     wait .2
  309.     set the castnum of sprite 11 = gAnimationcast + 2
  310.     set the castnum of sprite 12 = gAnimationcast2 + 2
  311.     updatestage
  312.     wait .2
  313.     set the castnum of sprite 11 = gAnimationcast + 3
  314.     updatestage
  315.     wait .2
  316.     set the castnum of sprite 11 = gAnimationcast + 4
  317.     set the castnum of sprite 12 = gAnimationcast2 + 1
  318.     updatestage
  319.     wait .2
  320.     set the castnum of sprite 11 = gAnimationcast + 3
  321.     updatestage
  322.     wait .2
  323.     set the castnum of sprite 11 = gAnimationcast + 2
  324.     set the castnum of sprite 12 = gAnimationcast2
  325.     updatestage
  326.     wait .2
  327.     set the castnum of sprite 11 = gAnimationcast + 1
  328.     updatestage
  329.     wait .2
  330.     set the castnum of sprite 11 = gAnimationcast
  331.     updatestage
  332.     wait .2
  333.     set count = count +1
  334.   end repeat
  335.   set the castnum of sprite 11 = gAnimationcast
  336.   set the castnum of sprite 12 = gAnimationcast2
  337.   puppetsound 0
  338.   updatestage
  339.   set gBeenClicked = 0
  340. end
  341.  
  342. on AnimateWorkshop
  343.   ArrowCursor 
  344.   set gAnimationcast = 951
  345.   set gAnimationcast2 = 966
  346.   set count = 0
  347.   repeat while count < 2 and (the mouseUP)
  348.     set the castnum of sprite 6 = gAnimationcast + 1
  349.     set the castnum of sprite 7 = gAnimationcast2 + 1
  350.     updatestage
  351.     wait .1
  352.     set the castnum of sprite 6 = gAnimationcast + 2
  353.     set the castnum of sprite 7 = gAnimationcast2 + 2
  354.     updatestage
  355.     wait .1
  356.     set the castnum of sprite 6 = gAnimationcast + 3
  357.     set the castnum of sprite 7 = gAnimationcast2 + 1
  358.     updatestage
  359.     wait .1
  360.     set the castnum of sprite 6 = gAnimationcast + 4
  361.     set the castnum of sprite 7 = gAnimationcast2 
  362.     updatestage
  363.     wait .1
  364.     set the castnum of sprite 6 = gAnimationcast + 5
  365.     updatestage
  366.     wait .1
  367.     set the castnum of sprite 6 = gAnimationcast + 6
  368.     updatestage
  369.     wait .1
  370.     set the castnum of sprite 6 = gAnimationcast + 7
  371.     updatestage
  372.     wait .1
  373.     set the castnum of sprite 6 = gAnimationcast + 8
  374.     updatestage
  375.     wait .1
  376.     set the castnum of sprite 6 = gAnimationcast + 9
  377.     set the castnum of sprite 7 = gAnimationcast2 + 1
  378.     updatestage
  379.     wait .1
  380.     set the castnum of sprite 6 = gAnimationcast + 10
  381.     set the castnum of sprite 7 = gAnimationcast2 + 2
  382.     updatestage
  383.     wait .1
  384.     set the castnum of sprite 6 = gAnimationcast + 11
  385.     set the castnum of sprite 7 = gAnimationcast2 + 1
  386.     updatestage
  387.     wait .1
  388.     set the castnum of sprite 6 = gAnimationcast + 12
  389.     set the castnum of sprite 7 = gAnimationcast2
  390.     updatestage
  391.     wait .1
  392.     set the castnum of sprite 6 = gAnimationcast + 13
  393.     puppetsound "SE282501.AIF"
  394.     updatestage
  395.     wait .1
  396.     set the castnum of sprite 6 = gAnimationcast + 14
  397.     updatestage
  398.     wait .1
  399.     set the castnum of sprite 6 = gAnimationcast
  400.     updatestage
  401.     wait .1
  402.     set count = count +1
  403.   end repeat
  404.   set the castnum of sprite 6 = gAnimationcast
  405.   set the castnum of sprite 7 = gAnimationcast2
  406.   puppetsound 0
  407.   updatestage
  408.   set gBeenClicked = 0
  409. end
  410.  
  411. on GlassBlower
  412.   ArrowCursor
  413.   set gSprite = 13
  414.   set gCast = 925
  415.   set count = 0
  416.   repeat while count < 1 and the mouseup
  417.     set the castNum of sprite gSprite = gCast
  418.     set the castNum of sprite gSprite = gCast + 1
  419.     updatestage
  420.     wait .1
  421.     set the castNum of sprite gSprite = gCast + 2
  422.     updatestage
  423.     wait .1
  424.     set the castNum of sprite gSprite = gCast + 3
  425.     updatestage
  426.     wait .1
  427.     set the castNum of sprite gSprite = gCast + 4
  428.     updatestage
  429.     wait .1
  430.     set the castNum of sprite gSprite = gCast + 5
  431.     updatestage
  432.     wait .1
  433.     puppetsound "SE282301.AIF Glassblow"
  434.     set the castNum of sprite gSprite = gCast + 6
  435.     updatestage
  436.     wait .1
  437.     set the castNum of sprite gSprite = gCast + 7
  438.     updatestage
  439.     wait .1
  440.     set the castNum of sprite gSprite = gCast + 8
  441.     updatestage
  442.     wait 2
  443.     set count = count + 1
  444.   end repeat
  445.   set the castNum of sprite gSprite = gCast
  446.   updatestage
  447.   puppetsound 0
  448.   set gbeenclicked = 0
  449. end
  450.